home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPM_104_Window < prev    next >
Encoding:
Text File  |  1992-04-08  |  1.3 KB  |  53 lines
  1. { %filename% -- window }
  2. { Created %date% %time% by AppMaker  }
  3.  
  4. {    For most applications, your window will have custom view classes.    }
  5. {    This module provides a convenient place to put these classes.        }
  6. {    If you specify a custom classname for any view item, AppMaker will    }
  7. {    generate some skeleton code for that custom class.  It generates    }
  8. {    a declaration of that class with a fields method; it generates        }
  9. {    the body of the fields method; and AppMaker generates code for        }
  10. {    dead strip suppression.  For some view items, AppMaker generates    }
  11. {    other methods it knows you will need; for instance, for a             }
  12. {    TTextListView, AppMaker generates a GetItemText method.                }
  13.  
  14. Unit U%windname%;
  15. Interface
  16.  
  17. Uses
  18. %if lang = Think%
  19.         SysEqu, Traps, ULoMem,             {}
  20.         UMacAppUtilities, UPatch,          {}    
  21.         UObject, UViewCoords, UMemory,     {}
  22.         UFailure, UMenuSetup, UList,     {}
  23.         UAssociation,                    {}
  24.         UMacApp,                        {}
  25.         UGridView, UTEView, UDialog,     {}
  26.         UAMLibraryM,                     {}
  27.         ResourceDefs;
  28. %else%
  29.         UMacApp,
  30.         UGridView,
  31.         UTEView,
  32.         UDialog,
  33.         UAMLibraryM,
  34.         Types,
  35.         Packages,
  36.         ResourceDefs;
  37. %endif%
  38. %for each item gen classDecl%
  39.     
  40. {----------}
  41. Function New%windname%     (itsDocument:    TDocument):    TWindow;
  42.  
  43. {----------}
  44. Implementation
  45.  
  46. %If lang = MPW%
  47.     {$I U%windname%.inc.p}
  48. %else%
  49.     %window.inc%
  50. %endif%
  51.  
  52. End. {U%windname%}
  53.